home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / StingerCPUModule.dxpack / {2546006F-3308-416E-AAFC-045A06FDC2C0}.DXScript2 next >
Extensible Markup Language  |  2003-10-09  |  1KB  |  35 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA[Dim MyTop
  5. Dim MyLeft
  6. Dim Registered
  7.  
  8. 'Called when the script is executed
  9. Sub Object_OnScriptEnter
  10.     MyTop  = Object.Top
  11.     MyLeft = Object.Left
  12. '    Object.Sleep 1000
  13. '    DesktopX.ScriptObject("StingerMeterToggler").RegisterModule(Object.Name)
  14. End Sub
  15.  
  16. Sub Object_OnStateChange(state)
  17.     If state = "Mouse down" Then
  18.         MyTop  = Object.Top
  19.         MyLeft = Object.Left
  20.         If Registered=True Then
  21.             DesktopX.ScriptObject("StingerMeterToggler").HideCaps
  22.         End If
  23.     ElseIf state = "Mouse up" Then
  24.         If Registered=True Then
  25.             DesktopX.ScriptObject("StingerMeterToggler").MoveModule(Object.Name)
  26.             DesktopX.ScriptObject("StingerMeterToggler").ShowCaps
  27.         End If
  28.     End If
  29. End Sub
  30.  
  31. 'Called when the script is terminated
  32. Sub Object_OnScriptExit
  33. End Sub
  34. ]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>104</EditorLeft><EditorTop>-4</EditorTop><EditorRight>1028</EditorRight><EditorBottom>772</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  35.